#!/usr/local/bin/perl
use warnings;
use Card;
use DefaultDeck;

$deck = new DefaultDeck();
sub main()
{
$s1 = "";
$s1 = "I am a string";

return printString(printString($s1));
}
sub value {
$name = $_[0];
$value = substr $name, 1;
if ($value eq "A")
{
return 1;
}
else
{if ($value eq "J")
{
return 11;
}
else
{
if ($value eq "Q")
{
return 12;
}
else
{
if ($value eq "K")
{
return 13;
}
else
{
return $value;
}
}
}
}
}

sub printString()
{
$s = "";
$s = $_[0];

print $s."\n";

return $s;
}
print main()."\n";
